home *** CD-ROM | disk | FTP | other *** search
/ Rokenbok 2.7 / Rokenbok CD Vol-2.7z / Rokenbok CD Vol-2.iso / mailing_list_sub.asp < prev    next >
Text File  |  2002-01-30  |  7KB  |  169 lines
  1. <HTML>
  2. <HEAD>
  3. <TITLE>Rokenbok Toy Company | Thank you for contacting Rokenbok!</TITLE>
  4.  
  5. <!--
  6.  
  7.         Document Name: thankyou.html
  8.         Creation Date: 08.17.00
  9.         Modification History: 
  10.  
  11. -->
  12. </HEAD>
  13.  
  14. <BODY BGCOLOR="#FFFFFF" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" TEXT="#000000" LINK="#0033CC" VLINK="#000066" ALINK="#0033CC">
  15. <% 
  16.  
  17.     dim emailAddress
  18.     dim listTypeValue
  19.     dim subscribeTo
  20.     
  21.     
  22.     '---------------------------------------------------
  23.     ' cstr converts to a string
  24.     '---------------------------------------------------
  25.     
  26.     emailAddress     = cstr(request.form("email"))
  27.     listTypeValue     = cstr(request.form("listtype"))
  28.     
  29.     '---------------------------------------------------------------------
  30.     ' test for aol email address
  31.     '---------------------------------------------------------------------
  32.     
  33.     if (instr(ucase(emailAddress),"@AOL.COM") > 0) then
  34.         subscribeTo = "subscribe rokenbok_updates_aol"
  35.         
  36.     '---------------------------------------------------------------------
  37.     ' not aol, test for html or plain list
  38.     '---------------------------------------------------------------------    
  39.         
  40.     else
  41.         if (ucase(listTypeValue) = "HTML") then
  42.             subscribeTo = "subscribe rokenbok_updates_html"
  43.         else 
  44.             subscribeTo = "subscribe rokenbok_updates"
  45.         end if
  46.     end if
  47.     
  48.     '---------------------------------------------------------------------
  49.     ' send email to listcert (dups commands as "send email to lyris")
  50.     '---------------------------------------------------------------------
  51.     
  52.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  53.     
  54.     cdoMail.to="listcert@rokenbok.com" 
  55.     cdoMail.from=emailAddress 
  56.     cdoMail.subject=subscribeTo
  57.     cdoMail.Body="mailing list "
  58.     
  59.     cdoMail.Send
  60.     
  61.     set cdoMail=nothing
  62.  
  63.  
  64.     '---------------------------------------------------------------------
  65.     ' send email to lyris
  66.     '---------------------------------------------------------------------
  67.     
  68.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  69.     
  70.     cdoMail.to="lyris@lyris.rokenbok.com" 
  71.     cdoMail.from=emailAddress 
  72.     cdoMail.subject=subscribeTo
  73.     cdoMail.Body=" "
  74.     
  75.     cdoMail.Send
  76.     
  77.     set cdoMail=nothing
  78.  
  79.     '---------------------------------------------------------------------
  80.     ' send confirmation to rokenbok
  81.     '---------------------------------------------------------------------
  82.         
  83.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  84.     
  85.     cdoMail.to="maillist@rokenbok.com" 
  86.     cdoMail.from="lyris" 
  87.     cdoMail.subject="subscribe " + emailAddress
  88.     
  89.     dim bodyText
  90.     
  91.     bodyText = bodyText + "Email address: "            + emailAddress     + vbcrlf 
  92.     bodyText = bodyText + "List type: "             + listTypeValue + vbcrlf 
  93.     bodyText = bodyText + "List subscribed to: "     + subscribeTo     + vbcrlf 
  94.     
  95.     cdoMail.Body = bodyText
  96.     
  97.     cdoMail.Send
  98.     
  99.     set cdoMail = nothing
  100.     
  101. %>
  102.  
  103.  
  104.  
  105. <CENTER>
  106.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  107.     <TR> 
  108.       <TD ROWSPAN="2" WIDTH="392" VALIGN="TOP"><A HREF="index.html""><IMG SRC="images/toplogo1.gif" WIDTH="148" HEIGHT="58" BORDER="0" ALT="Rokenbok® System"></A><IMG SRC="images/toplogo2.gif" WIDTH="244" HEIGHT="58"></TD>
  109.       <TD VALIGN="TOP"><A HREF="about.html"><IMG SRC="images/1aboutup.gif" WIDTH="58" HEIGHT="36" ALT="About Us" BORDER="0"></A><A HREF="learning.html"><IMG SRC="images/1learnup.gif" WIDTH="97" HEIGHT="36" BORDER="0" ALT="Learning Benefits"></A><A HREF="support.html"><IMG SRC="images/1suppup.gif" WIDTH="54" HEIGHT="36" ALT="Support" BORDER="0"></A><a href="redirect/contact.html"><IMG SRC="images/1contaup.gif" WIDTH="66" HEIGHT="36" ALT="Contact Us" BORDER="0"></A><a href="redirect/dealer_loc.html"><IMG SRC="images/1dealup.gif" WIDTH="93" HEIGHT="36" BORDER="0" ALT="Dealer Locator"></A></TD>
  110.   </TR>
  111.   <TR> 
  112.       <TD VALIGN="TOP"><IMG SRC="images/top_blue_stripe.gif" WIDTH="275" HEIGHT="22"><IMG SRC="images/nodeutsch.gif" WIDTH="93" HEIGHT="22" BORDER="0"></TD>
  113.   </TR>
  114.     <TR VALIGN="TOP"> 
  115.       <TD COLSPAN="2"><IMG SRC="images/top_corner.gif" WIDTH="47" HEIGHT="42"><A HREF="whatis/index.html"><IMG SRC="images/1whatup.gif" WIDTH="140" HEIGHT="42" ALT="What is Rokenbok?" BORDER="0"></A><A HREF="catalog/index.html"><IMG SRC="images/1catup.gif" WIDTH="145" HEIGHT="42" ALT="Toy Catalog" BORDER="0"></A><a href="redirect/czone.html"><IMG SRC="images/1constup.gif" WIDTH="143" HEIGHT="42" ALT="Construction Zone" BORDER="0"></A><IMG SRC="images/top_grey_mid.gif" WIDTH="134" HEIGHT="42"><IMG SRC="images/top_curve_about.gif" WIDTH="151" HEIGHT="42"></TD>
  116. </TR>
  117. </TABLE>
  118.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  119.     <TR> 
  120.       <TD WIDTH="20" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="400"></TD>
  121.       <TD WIDTH="580" VALIGN="TOP"><IMG SRC="images/ahdabout.gif" WIDTH="580" HEIGHT="26" ALT="About Us"><BR>
  122.         <BR>
  123.         <table width="580" border="0" cellspacing="0" cellpadding="0">
  124.           <tr> 
  125.             <td valign="top" COLSPAN="2"><IMG SRC="images/bhdthank.gif" WIDTH="400" HEIGHT="23" ALT="Thank You" VSPACE="10"></td>
  126.           </tr>
  127.           <tr> 
  128.             <td width="11" valign="top"><img src="images/spacer.gif" width="11" height="10"></td>
  129.             <td VALIGN="TOP" WIDTH="569"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">Thank you for joining our mailing list, your information has been submitted!</FONT></td>
  130.           </tr>
  131.         </table>
  132.       </TD>
  133.       <TD WIDTH="10" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  134.       <TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"><IMG SRC="images/spacer.gif" WIDTH="4" HEIGHT="10"></TD>
  135.       <TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  136.       <TD WIDTH="126" VALIGN="TOP" BGCOLOR="#99CCFF">
  137.       <!--Insert callout text in column below--> 
  138.         <BR>
  139.       </TD>
  140.       <TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  141.     </TR>
  142.     <TR> 
  143.       <TD VALIGN="TOP" COLSPAN="2"> </TD>
  144.       <TD WIDTH="10" VALIGN="TOP"> </TD>
  145.       <TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"> </TD>
  146.       <TD VALIGN="BOTTOM" BGCOLOR="#99CCFF" COLSPAN="3"><IMG SRC="images/corner_about.gif" WIDTH="146" HEIGHT="15"></TD>
  147.     </TR>
  148.   </TABLE>
  149.   <BR>
  150.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  151.     <TR VALIGN="TOP">
  152.       <TD WIDTH="20"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="10"></TD>
  153.       <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#0033CC"><A HREF="index.html">Home</A> 
  154.         | <A HREF="whatis/index.html">What is Rokenbok?</A> | <A HREF="catalog/index.html">Toy 
  155.         Catalog</A> | <a href="redirect/czone.html">Construction Zone</A> 
  156.         | <A HREF="about.html">About Us</A> | <A HREF="learning.html">Learning 
  157.         Benefits</A> | <A HREF="support.html">Support</A> | Contact Us<BR>
  158.         <a href="redirect/dealer_loc.html">Dealer Locator</A> | <a href="redirect/mailing_list.html">Join 
  159.         Mailing List</A> | <a href="redirect/warranty.html">Warranty Registration</A> | 
  160.         <A HREF="privacy.html">Privacy Statement</A> | <A HREF="terms.html">Terms 
  161.         of Use</A><BR>
  162.         ©2002 by Rokenbok Toy Company. All Rights Reserved.</FONT></TD>
  163.     </TR>
  164.   </TABLE>
  165. <BR>
  166. </CENTER>
  167. </BODY>
  168. </HTML>
  169.